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•PLEASE  NOTE.  The  Feoeral  COBOL  Compiler  Testing  Service  aay  make  full 
and  free  public  disclosure  of  the  Validation  Summary  Report  (VSR)  in 
accordance  uith  the  "Freedom  of  Information  Act"  (S  U.S.C.  P5S2).  The 
results  of  this  validation  are  only  for  the  purpose  of  satisfying  Lnited 
States  Government  reou i re ment s^  and  apply  only  to  the  Computer  System/ 
Operating  System  release/  and  compiler  version  identified  in  the  VSR.  The 
COBOL  Compiler  Validation  System  is  used  to  determine/  insofar  as  is 
practical/  the  decree  to  vhich  the  subject  compiler  conforms  to  the  Fed- 
eral COBOL  Standard.  Thus/  the  VSR  is  necessarily  discretionary  and  judg- 
mental. The  United  States  Government  does  not  represent  or  marrant  that 
the  statements/  or  any  one  of  them/  set  forth  in  the  VSR  are  accurate  or 
complete.  The  VSR  is  not  meant  to  be  used  for  the  purpose  of  publicixing 
the  findings  summarized  therein. 


For  information  concerning  this  compiler  you  can  contact  the  vendor's 
.a  designated  representative  named  belov: 

Jay  Valentine 
federal  Support  Center 
IBP  Corporation 
10401  Fernvood  Road 
Bethesda/  Paryland  20034 
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SECTION  1.  INTRCDUCTICN 

1.1  Purpose  of  the  Validation  SuOBary  Report 

The  purpose  of  the  Validation  Suroary  Report  (VSR)  is  to  identify  individual 
COPOl  lanooaqe  elements  whose  i »r I em« nt at  ion  does  not  conform  to  american 
National  Standard  Proqrameing  Lanouape  COBOL«  X3.23-1974»  and  to  Federal  Stan- 
dard COBOl  as  adopted  from  the  American  National  Standard  by  Federal  Information 
Processing  Standard  21-1  (FIPS  PLB  21-1). 

1.2  Preparation  of  the  VSR 

The  Validation  Summary  Report  is  prepared  by  analyzing  the  results  cf  running 
the  COBOL  Compiler  Validation  System  (CCVS).  The  COBOL  Compiler  Validation 
System  consists  of  audit  routines  containing  features  of  Federal  Standard  COBOL^ 
their  related  datae  and  an  eiecutive  routine  (VP-routine)  which  prepares  the 
audit  routines  for  compilation.  Eacn  audit  routine  is  a COBOL  program  which 
includes  many  tests  and  supporting  procedures  indicating  the  result  of  the 
tests. 

The  testing  of  a compiler  in  a particular  ha rdware /ope ra t i ng  system  environment 
is  accomplished  by  compiling  and  emecuting  each  audit  routine.  The  report  pro- 
duced by  each  routine  tells  whether  the  compiler  passed  or  failed  the  tests  in 
the  routine.  If  the  compiler  rejects  some  languaoe  elements  by  terminating 
compilation^  giving  fatal  diagnostic  messages^  or  terminating  excution  abnor- 
mally«  then  the  test  containing  the  code  the  compiler  was  unable  to  process  is 
deleted  and  the  audit  routine  compilation  and  eiecution  repeated. 

The  compilation  listings  and  the  output  reports  of  the  audit  routines  con- 
stitute the  raw  data  from  which  the  members  of  the  Federal  COBOL  Compiler 
Testing  Service  produce  a Validation  Summary  Report. 

1.3  Crganization  of  the  VSR 

The  Validation  Summary  Report  is  made  up  of  several  sections  the  contents  of 
which  are  described  below. 

a.  Section  2 summarizes  the  results  of  the  compilation  and  eaecution 
of  the  programs  comprising  the  COBOL  Compiler  Validation  System.  Section  2 

is  subdivided  into  a subsection  representing  each  level  of  each  eccule  defined 
in  American  National  Standard  Programming  Language  C060L»  X3. 23-1974.  Each 
subsection  contains  a list  of  all  of  the  language  elements  which  eust  be 
implemented  in  order  to  claim  support  of  that  I ev el /modu le . The  list  of 
language  elements  will  be  annotated  to  include  a description  of  both  syntax 
and  semantic  errors  detected  during  the  validation. 

b.  Section  3 - FIPS  PUB  21-1  defines  four  Federal  levels  of  the  COBOL 
Standard.  Section  3.1  of  the  VSF  lists  the  discrepancies  described  in  Section  2 
by  the  Federal  level  in  which  the  problem  occurs.  Section  3.2  lists  discrepan- 
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cies  for  the  Keport  Writer  vodule^  which  is  not  s part  of  Federal  Standard 
COBOL. 

c.  Section  4 contains  inforaation  which  describes  the  software  environ- 
•ent  in  which  the  coapiler  was  tested.  This  includes  the  naae  anc  version  of 
the  cperatino  system;  the  imp  leaent or-na«ies  which  were  used  in  the  Environnent 
Division  of  the  programs  comprising  the  CCVS;  the  options  used  with  the  com- 
piler; and  if  applicable^  information  regarding  the  use  of  compiler  optimiza- 
tion features. 

d.  Section  5 contains  the  results  of  the  ASCII  validation.  The  purpose 
of  these  tests  is  to  ascertain  whether  magnetic  tapes  written  in  ASCII  code  anc 
with  AhSl  standard  labels^  and  card  decks  with  ASCII  code/  can  be  transported 
between  the  system  being  validated  and  a foreign  computer  system. 

e.  Appendi*  A is  the  Validation  Summary  Working  Document/  a working 
paper  resulting  from  the  compilation  and  eaecution  of  the  CCVS/  and  from  which 
the  VSR  is  derived. 

1.4  Abstract  Covering  Compliance  to  ANS  COBOL 

Definition  of  an  Implementation  of  American  National  Standard  Programming 
Language  COBOL  (ezcerpts  from  *3.23-1974/  Chapter  1/  Section  1.5). 

An  implementation  is  defined  to  meet  the  requirements  of  the  American 
National  Standard  COBOL  specification  if  that  implementation  includes  a 
fully  implemented  specified  level  of  each  of  the  functional  processino 
modules  and  of  the  Nucleus  as  defined  in  this  Standard.  It  follows  from 
this  that/  in  order  to  meet  the  requirements  of  this  Standard/  an  imple- 
ment at  ion  must : 

a.  hot  require  the  inclusion  of  substitute  or  additional  larguage  ele- 
ments in  the  source  program/  in  order  to  accomplish  any  part  of  the  function 
of  any  of  the  standard  language  elements. 

b.  Accept  all  standard  language  elements  contained  in  a given  level 
of  a module  which  is  specified  as  beino  included  in  the  imp  I emen t at  ion/ 
except  as  specifically  exempted  (as  pertaining  to  specific  hardware  components 
for  which  support  is  not  claimed).  See  "Elements  that  Pertain  to  Specific 
Hardware  Components"  below. 

These  points  are  of  particular  pertinence  in  two  areas: 

(1)  There  are  throughout  the  American  hational  Standard  COBOL 
specification  certain  language  elements  whose  syntax/  or  effect/  is  specified 
to  be/  in  part/  i mp lement or-def ined . While  the  ieplementor  specifies  the 
constraints  on  that  portion  of  each  element’s  syntax  or  rules  that  is  indi- 
cated in  this  Standard  to  be  implementor-defined/  such  constraints  nay  not 
include  any  requirement  for  the  inclusion  in  the  source  program  of  sub- 
stitute or  additional  language  elements. 

(2)  When  a function  is  provided  outside  the  source  program  that 
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• c coir  p I i sh«  s a function  specified  by  any  particular  standard  COBOL  eleirent/ 
then  the  ir p I enent at i on  aust  not  require/  except  for  Environeent  Division 
elenents/  the  specification  of  that  external  function  in  place  of  cr  in 
addition  to  that  standard  lanquaoe  element: 

The  following  Qualifications  apply  to  the  Aaerican  National  Standard  COBOL 
spec  i f i cat  ion  ; 

a.  There  are  certain  language  elements  which  pertain  to  specific  types 
of  hardware  components.  In  order  for  an  iap I emen t a t i on  to  meet  the  reouire- 
■ents  of  this  standard/  the  implementor  must  specify  the  minimum  hardware 
configuration  required  for  that  implementation  and  the  hardware  ccmponents 
that  it  supports.  Further/  when  support  is  thus  claimed  for  a specific  hard- 
ware component/  all  standard  languaae  elements  that  pertain  to  that  ccmpcnent 
must  be  implemented  if  the  module  in  which  they  appear  is  includeo  in  the 
implementation.  Language  elements  that  pertain  to  specific  hardware  com- 
ponents for  which  support  is  not  claimed/  need  not  be  implemented.  However/ 
the  absence  of  such  elements  from  an  implementation  of  American  National 
Standard  COBOL  must  be  specified. 

b.  An  implementation  of  American  National  Standard  COBOL  may  include 
the  ENTEh  statement  or  not/  at  the  option  of  the  implementor. 

c.  An  implementation  that  includes/  in  addition  to  a specified  level  of 
each  cf  the  functional  processing  modules  and  of  the  Nucleus/  elements  or 
functions  that  either  are  not  defined  in  the  American  National  Standard  COBOL 
specification  or  are  defined  in  a given  level  of  a standard  module  not  other- 
wise included  in  the  implementation/  meets  the  recuirements  of  this  Stanoard. 
This  is  true  even  though  it  may  imply  the  extension  of  the  list  of  reserved 
words  by  the  implementor/  and  prevent  proper  compilation  of  some  programs  that 
meet  the  requirements  of  this  Standard.  The  implementor  must  specify  any 
optional  language  (language  not  defined  in  a specified  level  but  defined  else- 
where in  the  Standard)  or  extensions  (language  elements  or  functions  not 
defined  in  this  Standard)  that  are  included  in  the  implementation. 

d.  In  general/  the  American  National  Standard  COBOL  specification 
specifies  no  upper  limit  on  such  things  as  the  number  of  statements  in  a pro- 
gram/ the  number  of  operands  permitted  in  certain  statements/  etc.  It  is 
recognixed  that  these  limits  will  vary  from  one  implementation  of  American 
National  Standard  COBOL  to  another  and  may  prevent  the  proper  compilation  of 
tome  programs  that  meet  the  requirements  of  this  standard. 

inPLEFENTOR-OEFlNED  LANGUAGE  SPECIFICATIONS 

The  language  elements  in  the  following  lists  depend  on  implementor  defini- 
tions to  complete  the  specificaton  of  the  syntax  or  rules  for  the  elements. 

The  elements  whose  syntax  it  partly  implementor-defined  are: 


E I ement 


Imp  I ement or -De f ined  Aspect 
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SOURCE-COMPUTER  paragraph 
OBJECT-COMPUTER  paragraph 
MEMORY  SITE  Clause 
alphabet -name 

SPECIRL-RAMES  paragraph 
ASSIGN  clause 
VALUE  CF  clause 

RERUK  clause 

CALL  and  CANCEL  statements 


computer-name 

computer-name 

integer 

implementor-name;  ahether  iaple- 
mentor-names  are  providcc. 

implementor -name 

implementor-name 

implementor-name;  whether  implementor- 
names  are  provided. 

implementor-name  and  the  term;  the 
implementor  provides  at  least  one 
of  seven  specified  forms. 

relationship  between  operand  and  the 
referenced  program. 


COPY  statement  relationship  between  library-name 

temt-namer  and  the  library. 


r 
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STRCHROMZeo  clause 


ACCEPT  statement 


Whether  implicit  TILLER  positions  are 
generated;  their  effect  on  the  site 
of  group  items  and  redefining  items. 

P. aiimum  size  of  one  transfer  of  data 
in  Level  1 Nucleus. 


DISPLAY  statement 


Paiimum  size  of  one  transfer  of  data 
in  Level  1 Nucleus. 


Numeric  test 


Representation  of  valid  sion  in  the 
absence  of  the  SIGN  IS  SEPARATE 
c I ause . 


Comparison  of  nonnumeric  iters  Collating  sequencer  where  NATIVE  or 

impl eme nt or-name  collating  sequence 
is  implicitly  or  explicitly 
speci f ied. 

Arithmetic  expressions  Number  of  places  carried  for  inter- 

mediate results. 


Elements  That  Pertain  to  Specific  Hardware  Components 

The  standard  language  elements  in  the  list  that  follows  pertain  to  specific 
types  of  hardware  components.  These  language  elements  must  be  implemented 
in  ar  implementation  of  American  National  Standard  COBOL  when  support  is 
claimed/  by  the  implementor/  for  the  specific  types  of  hardware  components  to 
which  they  pertain/  and  the  module  in  which  they  are  defined  is  included  in 
that  implementation. 

Element  Hardware  Component 


CODE-SET  clause 

nULTIPLF  FILE  TAPE  clause 
CLOSE. ..REEL/UNIT  statement 
CLOSE. ..NO  REWIND  statement 
OPEN. ..REVERSED  statement 


OPEN. ..NO  REWIND  statement 
OPEN.. .1-0  statement 


Device  capable  of  supporting  the 
specified  code. 

Reel 

Reel  or  mass  storage  • 

Reel  or  mass  storage 

Reel  with  the  capability  cf  making 
records  available  in  the  reversed 
order;  mass-storage  with  the  cap- 
ability of  making  recorcs  avail- 
able in  the  reversed  oroer. 

Reel  or  mass  storage 

Pass  storage 
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( Secuent ia  I 1-0  only) 

OPEN  EXTEND  statement  Reel  or  mass  storage 

REWRITE  statement  Pass  storage 

(Sequential  1-0  only) 

SEND. .. BEFORE /AF TER  Devices  capable  of  vertical  posi- 

ADVANCING  statement  tioning;  devices  capable  cl  action 

based  on  mnemonic-names. 


USE. ..1-0  (Sequential 
I-O  only) 


Bass  storage 


WRITE BEFCRE/AFTER 

ADVANCING 


Devices  capable  of  vertical  posi- 
tioning; devices  capable  of  action 
based  on  mnemonic-name. 
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1.5  The  feCeral  COBOt  Standard 

The  COBOL  co«piler  validation  results  enclosed  in  this  document  reflect  the 
dearee  to  which  the  subject  CCPOL  coeciler  iecleeer.ts  the  federal  COBOL 
Stanoard.  The  Federal  COf-OL  Standard  is  essentially  the  save  as  the 
American  National  Standard  Programmino  Language  COBOL/  X3. 23-1974/  with  two 
eaceptions; 

The  federal  COBOL  Standard  defines  4 levels  and  the  ANSI 
Standard  cefines  only  the  minimum.  COBOL  implementation  and 
the  full  standarc..  Low  and  High  levels  of  the  federal 
COBOL  Standard  (see  1.5.1)  cerrespond  to  the  above  two  ANSI 
levels  (minus  the  Report  Writer  module).  Two  additional 
levels/  I ow - i n t e rmed i a t e and  h i q h- i n t e r med i a t e have  been 
included  in  the  Federal  Standard  between  the  highest  and 
lowest  subsets.  These  additional  levels  accommodate 
hardware  which  cannot  support  the  full  standard/  but  which 
is  capable  of  implementing  more  than  the  minimum  standard. 

The  Federal  COBOL  Standard  states  that  the  Report  Writer  fcdule 
is  not  mandatory  in  any  federal  level/  but  that  the  specifica- 
tions contained  in  *3.23-1974  should  be  used  to  the  extent 
practical/  consistent  with  requirements. 

The  Federal  COBOL  Standard  requires  that  a compiler  contain  as  a minimum  the 
elements  specified  in  at  least  one  of  the  Federal  levels.  No  restrictions  are 
imposed  on  the  inclusion  of  selected  features  from  higher  levels  or  even  unique 
vendor  extensions.  Compatibility  amoung  various  implementations  cf  a given 
level  containino  additional  features  must  be  controlled  by  manacexent  imposed 
standards  and  restrictions. 

1.5.1  Federal  Standard  COBOL  Levels 

a.  federal  Standard  COBOL  specifications  are  the  language  spec i f ica t ion s 
contained  in  American  National  Standard  Programming  Language  COBOL/  *3.23-1974. 
For  purposes  of  the  Federal  Standard/  the  modules  defined  in  *3.23-1974  are 
combined  into  four  levels.  Not  all  computers  are  large  enough  tc  accommodate  a 
COBOL  compiler  containing  the  full  ANSI  Standard.  Therefore/  the  Federal 
Government  requires  that  all  compilers  acquired  by  its  agencies  contain  as  a 
mimxum  one  of  the  four  Federal  levels/  depending  on  machine  siae/  conf  i pur  a t ic - 
and  user  needs.  The  knowledge  that  all  computers  will  support  at  least  one  of 
these  four  subsets  simplifies  the  task  of  developing  machi ne-i ndependent  COBOL 
programs . 

b.  The  four  levels  of  Federal  Standard  COBOL  are  identified  as:  Low/ 
Low-Intermediate/  High-Intermediate/  and  High,  tach  Federal  Stancard  COBOL 
level  is  coxposed  of  either  the  high  or  low  levels  of  the  nucleus  and  ten  of 
the  eleven  Functional  Processing  modules  (FPrs)  defined  in  *3.23-1974. 

The  four  Federal  Standard  COBOL  levels  are  reflected  in  the  following  table. 

The  numbers  in  the  table  refer  to  the  level  within  the  FPP  or  nucleus  as 
designated  in  *3.23-1974/  and  a dash  in  the  table  denotes  that  the  corres- 
ponding F Ff  is  omitted. 
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Low 
Leve  1 

Low 

I nt  er - 
aed i at  e 
Level 

High 
Inter- 
mediate 
Leve  1 

H icF 
Leve  1 

NUCLEUS 

1 

1 

2 

2 

FPe.s 

t*ple  handlist- 

1 

1 

2 

2 

SEQUENTIAL  I'C 

1 

1 

2 

2 

RELATIVE  I-C 

- 

1 

2 

2 

INDEXED  I-O 

- 

- 

- 

? 

SORT-eERGE 

- 

- 

1 

2 

REPORT  WRITER 

- 

- 

- 

- 

SEGMENTATION 

1 

1 

2 

library 

- 

1 

1 

2 

DEBUG 

- 

1 

2 

2 

IKTER-PRCC-RAa 

CORPUNICATICN 

• 

1 

2 

2 

COPMUMCATION 

2 

2 

1.5.2  Conformance  to  Federal  Standard  COBOL 

» coapHer  ie.pleaented  in  conforaance  to  federal  Standard  COBOL  apst  aeet  at 
least  the  following  requi reaent s . 

a.  The  iap lenen t a t i on  aust  include  all  of  the  language  eleaents  of  at 
least  one  of  the  levels  of  Feoeral  Standard  COBOL. 

b.  The  iap I eaen t a t ion  aust  aeet  alt  of  the  requireaents  defined  in 
Aaerican  Kational  Standard  COBOL/  X3.23-1V74/  Section  1/  paragraph  1.5/  Defini- 
tion of  an  lap  lee.  ent a t i on  of  Aaerican  Kational  Standard  COBOL  which  is  pro- 
vided in  section  1.4  of  this  VSR. 

c.  The  iap I eaen ta t i on  aust  provide  a facility  for  the  user  to  optionally 
specify  a level  of  Federal  Standard  COBOL  for  aonitorino  his  source  proqraa 

at  compile  tiae.  The  monitoring  will  be  an  analysis  of  the  syntax  used  in  a 
source  program  against  the  syntax  included  in  the  specified  level  of  Federal 
Standard  COBOL.  Any  syntax  used  in  the  source  program  that  does  rot  conform 
to  that  allowed  by  the  user  selected  level  of  Federal  Standard  COBOL  will  be 
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diaqrcsrc.  The  syntai  diaanosed  as  rot  conforrino  to  the  soecitied  level  will 
bt  ioentified  to  the  user  thrcuoh  a diaonostic  aessaae  or.  the  source  croqrar 
listing.  The  diaonostic  aessage  vill  contain/  at  least:  (1)  The  ident  i f i ca t i cr 

of  the  source  proorai  line  nuaber  in  which  the  nonconforaino  syntai  occurs/ 

(?)  the  identification  of  the  level  cf  federal  Standard  COBOL  that  supports 
the  syntax  or  that  the  syntax  is  nonstandard  COBOL. 

1.6.  Use  of  the  VSR 

The  Federal  COBOL  Compiler  Testing  Service  aay  aake  full  and  free  public 
disclosure  of  the  Validation  Suarary  Report  (VSR)  in  accordance  with  the 
"Freedom  of  Information  Act"  (5  U.S.C.  RS32).  The  results  of  the  validation 
are  only  for  the  purpose  of  satisfyino  United  States  Government  r equ i rement s / 
and  apply  only  to  the  computer  system/  operatino  system  release/  ard  compiler 
version  identified  in  the  VSR. 

The  COBOL  Compiler  Validation  System  is  used  to  determine/  insofar  as  is 
practical/  the  degree  to  which  the  subject  compiler  conforms  to  the  COBOL 
Standard.  Thus/  the  VSR  is  necessarily  discretionary  and  judgmental.  The 
United  States  Government  does  not  represent  or  warrant  that  the  statements/ 
or  any  one  of  them/  set  forth  in  the  VSR  are  accurate  or  complete.  The  VSR 
is  net  meant  to  be  used  for  the  purpose  of  publicitino  the  findir.es  suaaarieec 
there  in  . 

1.7  Sources  of  Additional  Inforaation 

FIPS  FU6  71-1  defines  the  Federal  COPOL  Language  Standard.  This  publication 
is  available  from  the  Office  of  ADP  Standards  Banageaent/  National  Bureau  of 
Standards/  Washington/  D.  C./  2023A. 

The  detailed  COBOL  language  specifications  are  given  in  the  publication 
"American  National  Standard  Prooramaing  Language  COBOL/  X3.23-197A"/  available 
from  the  American  National  Standards  Institute/  1A30  Broadway/  New  York/  New 
York  10018. 

An  explanation  of  the  COBOL  Compiler  Validation  System  is  containee  in  the 
CeVS  User's  Guide.  This  document  explains  how  to  run  the  compiler  validation 
systea.  The  User's  Guide  and  a magnetic  tape  containing  a copy  of  the  CCVS 
prograas  are  available  from  the  National  Technical  Information  Service/ 
Springfield/  Virginia/  271S1.  (Ordering  information  can  be  obtained  from 
the  Federal  CCBCL  Compiler  Testing  Service.) 

1.8.  Requests  for  In t erp ret  a t ion 

Questions  regarding  this  VSR  or  the  CCVS  in  general  should  be  forwarded  to  the 
FCCTS.  If  any  problem  cannot  be  adequately  resolved  through  the  FCCTS/  the 
request  for  int erpret at  ion  will  be  forwarded  to  the  Federal  COBOL  Interpretation 
Committee  for  final  resolution. 

A brochure  describing  the  validation  process  including  the  procedures  for 
requesting  a validation  and  resolution  of  questions  involving  interpretation 
of  the  current  Federal  Standard  is  available  from  the  Department  of  the  Navy/ 
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fedfral-  COBOL  Co»rilfr  Testinr  Service^  Washinotor^  t.C.  2CJ76. 

1.9  >’odule$  and  Language  Elements  Eacluded  free  Testing 

Ourinc  an  official  validation/  certain  CCVS  tests  ray  not  be  used/  and  certain 
facilities  provided  by  the  subject  eorpiler  may  not  be  tested. 

1.9.1  federal  Standard  COBOL  Approved  Interpretations 

The  National  bureau  of  Stanoards  published  in  the  federal  Register  Vol.  41 
No.  179/  Septerber  14/  1976/  an  approved  interpretation  of  federal  Standard 
COBOL  as  pertains  to  the  evaluation  of  arithnetic  eipressions  in  the  CONPUTE 
staterents.  This  interpretation  states  that  "size  of  the  interreciate  result 
fielc  is  irp leaent or -de f i ned . " 

Since  the  results  of  evaluating  arithretir  expressions  are  not  predictable/  all 
COPPLTE  staterents  and  If  staterents  containing  arithretic  expressions  have 
been  reeoved  iron  the  COBOL  Compiler  Validation  Systee.. 

« 

1.9.2  Report  Writer  Nodule 

flPS  PUB  21-1  excludes  the  Report  Writer  Nodule  from  the  federal  COBOL  Standarc 
However/  the  Report  Writer  Nodule  is  still  tested  during  a validation  if  supper 
for  that  Nodule  is  claired  by  the  coepiler  vendor. 

1.9.3  C OBNuni cat  ion  Nodule 

Although  it  is  part  of  federal  Standard  COBOL  as  defined  by  flPS  FUP  21-1/  the 
Coxieiuni  c at  i on  Nr  ule  is  not  currently  tested  in  the  course  of  an  official  vali- 
dation for  two  specific  reasons.  first/  a large  voluxie  of  reouests  for  inter- 
pretation on  this  eodule  have  been  sub»itted  to  the  cognizant  ANSI  coTNittee 
(X3J4)  for  resolution.  Secondly/  facilities  for  testing  were  insufficient  to 
deteraine  the  validity  of  the  C paaun i cat  ion  Nodule  test  prograes  during  the 
development  of  CCVS74. 

1.9.4  Vendor  Caissions  or  Extensions 

Language  eleaents  are  not  tested  which  have  been  legitiaately  oaitted  froa  the 
ix.p I eaen t a t ion  by  the  iapleaentor  (refer  to  1.4).  Additionally/  rc  iapleaentcr 
extensions  to  the  standard  COBOL  language  are  tested  in  any  way. 
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1.10  T'ivrliness  of  the  Vatidation  Suvaary  Reports 

The  tiaeliness  of  the  Validation  Suaaary  Report  is  iaportant.  Compilers 
and  their  related  operatino  system  software  are  aodified  several  tiaes  a year. 
The  Compiler  Validation  System  used  to  validate  compilers  is  alsc  updatec 
during  the  life  of  the  system.  Therefore  to  ensure  that  the  latest  version 
of  both  the  vendor's  compiler  and  the  Validation  System  are  the  latest  offici* 
ally  released  versions^  check  with  the: 

Director 

Federal  COBOL  Compiler  Testing  Service 
Department  of  the  Navy 
Washinoton»  D.  C.  20?76 
(2C2)  697-12R7 

Please  use  the  Validation  Summary  Report  number  of  this  report  when 
corresponding  with  the  Testing  Service. 
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SECTION  2.  DEIAUED  EVALUATION  Of  ERRORS. 


This  section  suamarizes  t hr  results  of  the  corpilation  and  riecution  o1  the 
progrars  coeprisino  the  CCPOL  Coepiler  Validation  System  (CCVS).  The  version 
of  the  CCVS  used  during  this  walication  is  shown  inside  the  front  cover  of  the 

VSR. 

Section  ? is  made  up  of  a variable  number  of  subsections.  The  rupter  of  sub- 
sections is  depenoent  on  the  Level  of  federal  COBOL  beino  validated.  There  will 
be  a subsection  for  each  level  of  each  module  which  is  validated.  If  the  high 
level  of  a module  is  validated  then  there  will  be  two  subsections  for  that 
module;  cnc  for  the  low  level  and  one  tor  the  high  level. 

A validation  of  the  low  level  of  Federal  Standard  COBOL  would  result  in  three 
subsections  beino  present.  One  for  Nucleus  level  1»  one  for  Sequential  I-O 
level  and  one  for  Table  Handling  level  1. 

Each  error  or  deviation  noted  in  this  section  makes  reference  to  a program  or 
functional  CCPOL  module  contained  in  Appendix  A (Validation  Summary  Working 
Document).  This  reference  provides  the  documented  results  of  an  cccurrence 
of  errors/deviataions  detected  during  the  running  of  the  CCVS  using  the  compiler 
within  the  environment  identified  within  this  document.  The  Validation  Summary 
Working  Document  is  presented  in  sequence  by  functional  modular  functional 
module  level  and  program  number  as  defined  below. 

Each  program  in  the  COBOL  Compiler  Validation  System  is  identified  by  a 5- 
character  program  name.  The  name  associates  the  routine  with  the  functional 
processing  module  and  level  of  American  National  Standard  Programming  Language 
COBOL  tested  within  the  program. 

The  five  character  name  has  the  oeneral  format  XXNWn.  The  first  two 
characters  are  alphabetic  and  identify  the  functional  module  tested  by 
the  program.  The  permissable  values  are: 

NC  - Nucleus 
Th  - Table  Handling 
SO  - Sequent ia I I-O 
RL  - Relative  1-0 
IX  - Indexed  I-O 
ST  - Sort-Herge 
RW  - Report  Writer 
S6  - Segmentation 
LB  - Library 
DB  - Debug 

1C  - Inter-Program  Communication 
cn  - Communication 

The  third  character  of  the  audit  routine  name  is  either  a 1 or  2»  and 
identifies  the  level  of  the  functional  module  being  tested.  Each  module  and 
level  is  represented  by  several  programs.  The  fourth  and  fifth  characters  of 
the  program  name  are  sequence  numbers  for  programs  which  test  features  in  the 
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sawe  level  of  the  sane  functional  processing  eodule. 

As  an  exanole/  the  prograa  naee  AIC21C  is  the  tenth  progra*  in  the  series  of 
routires  which  test  the  second  level  of  the  Nucleus  podule. 

Description  of  Section  2. 

Each  er ro r/ dev ia t ion  is  noted  by  nueiber  in  the  left  hand  psrgin  opposite 
the  language  elerent  in  question.  this  nueber  is  used  in  section  I to 
categorize  errors  by  federal  level  (See  1.5.1).  Inserted  directly  below 
the  language  element  is  a brief  description  of  the  error.  To  the  right  of 
the  langauge  elee.ent  is  a page  reference  to  X3. 25-1974,  A*erican  National 
Stancard  Progr  ar.n.  ing  Language  COPOL.  The  reference  at  the  end  of  the 
description  of  the  error  is  to  Appendiz  A which  contains  the  detailed 
inforaation  collected  during  the  validation.  The  reference  is  aade  up 
of  the  routine  name  followed  by  an  A or  8 (A  for  compile  time  or  syntax 
error  and  p for  execution  tiee  or  semantic  error)  and  a number  which  makes 
the  error  unique  in  Appendix  A. 
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E X ar  r I e : 


2.1  Nucleus  Level  1 


Operational  symbols:  S V F 11-21 

« The  scalinq  character  *F’  is  not  permitted  in  a 
* PICTURE  character-strino. 

. (KC101.*.2) 


2.2  Seouential  I-O  Level  1 


2.1.9  represents  the  ninth  error  for  Nucleus  Level  1 

11-21  represents  the  page  in  X5. 23-1974  where  the  language 
element  is  defined 

• Poxes  the  description  of  the  error /dev ia t i on 

NC1C1.A.2  represents: 

Pro7ra»  name  - NC101 

Syntax  error  - A 
second  error  - 2 
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2.1  NUCLEUS  LEVEL  1 


Language  Conceots  ................  1-75 

Characters  used  for  words  ...........  I-7t 

0^  1#  ...#  9 

Af  0/  .../  2 

- {hyphen  or  rinus) 

Characters  used  tor  punctuation  ........  I-C5 

" Quotation  Bark 

( left  parenthesis 
) right  parenthesis 
. per iod 
space 

= equal  sign 

Characters  used  in  editing l-5£ 

0 space 
0 tero 

* plus 

- Binus 
CR  credi t 
60  debit 

2 lero  suppress 

• check  protect 
$ currency  sign 
r COBBia 

. period 
/ stroke 

Separators 1-75 

The  separators/  semicolon  and  coaaa/  are  not 

allowed  ..................  11-1 

Character-st rings  ...............  1-76 

COBOLwords. ...... ..........  1-76 

Not  nore  than  30  characters 

User-defined  words 1-76 

data-name 

rust  begin  with  an  alphabetic  character  11-1 

rust  be  unique;  aay  not  be  qualified.  . 11-1 

lewe l-nuBber 
•neaon ic-naae 
paragraph-naae 
prograa-naae 
rout ine-naae 
section-naae 

Syst ea-naaes  . ...............  1-78 

computer -name 

impleaentor-nare 

language-name 

Reserved  words 1-79 

Key  words 
Optional  words 

Figurative  constants I-8C 

ZERO 
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SPACE 

high-value 

LOH-VALUE 

OUOTF 

Sppc  i a l-c  Eiar  act  r r words  .........  I-tC 

Literals.  ..................  1-PO 


Nonnueeric  literals  have  lenqths  f roe  1 
through  1?C  characters 

Numeric  literals  have  lengths  from  1 through 


IP  digits 

PlCIURt  character-strings  I-E2 

Coement -ent r ie s ...............  1-E2 


Reference  Format I-1C3 

Seguence  number  ................  I-1C5 

Area  A.  ....................  1-1C3 

Division  header  ...............  1-106 

Section  header.  ...............  1-1C6 

Paragraph  header.  ..............  I-1C7 

Data  Division  entries  ............  1-1C7 

Area  B.  ....................  I-1C5 

Paragraphs.  .................  I-1C7 

Data  Division  entries  ............  I-1C7 

Continuation  of  lines  .............  1-1C6 


Continuaton  of  the  section  header  WORKI NG-ST ORAGE  was  rot 
accepted. 

(NC113.A) 


Only  nonnumeric  literals  may  be  continued  . . . 

Comment  lines  ................. 

Asterisk  <•)  comment  lines 
Stroke  (/)  comment  line 

Identification  Division  ............. 

The  program-id  paragraph.  ........... 

The  AUTHOR  paragraph.  .......  

The  installation  paragraph.  .......... 

The  DATE-WRITTEN  paragraph.  .......... 

The  security  paragraph.  ............ 

Environment  Division.  .............. 

The  SOURCE-COMPUTER  paragraph  

coeput  er-name 

The  OBJECT-COMPUTER  paragraph  ......... 

computer-name 

MEMORY  SIZE  clause 

PROGRAM  COLLATING  SEQUENCE  clause 

The  SPECIAL-NAMES  paragraoh  .......... 

implementor-name  IS  mnemonic-name 
implementor-name  IS  mnemon ic -name  series 
Oh  STATUS 
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OFF  STATUS 

a I phabet -naitie  clause 
CURRENCY  SIGN  clause 
DFCIFIAL-POINT  clause 


Data  Division  .....  1-97 

Rork ing-Storage  Section  ............  11-11 

The  data  description  entry.  ..........  11-12 

The  blank  when  zero  clause 11-14 

The  data-name  or  FILLER  clause 11-15 

The  JUSTIFIED  clause  <may  be  abbreviated  JUST).  11-16 

Level-number.  11-17 

01  through  10  (level  numbers  must  be  2 digits)  11-13 

77 . 11-11 

The  PICTURE  clause  (may  be  abbreviated  PIC)  . . 11-18 

Ch ar a c t er -St r i ng  may  contain  3C  characters.  . 11-18 

Data  characters;  AX9 11-18 

Operational  symbols:  S V P. .......  11-21 

Timed  insertion  characters.  . . . . . . . . . 11-21 

0 (may  be  used  only  in  edited  items) 


F (may  be  used  only  in  edited  items) 

$ (currency  sign) 

and  - 
DB  and  CR 
/ 

Replacement  or  floatino  characters.  .....  11-21 

J (currency  sign) 

and  - 
Z 


Currency  sign  substitution.  .........  11-21 

Decimal  point  substitution.  .........  11-21 

The  redefines  clause  (may  not  be  nested).  ...  11-27 

The  SIGN  clause  ................  11-31 

The  SYNCHRONIZED  clause  (may  be  abbreviated  SYNC)  11-33 

The  USAGE  clause 11-35 

COHPUT A TIONA L (may  be  abbreviated  COMP) 

display 

The  VALUE  clause 11-36 

literal 

2.1.2  - — 


The  VALUE  clause  containing  an  alphanumeric  literal  for  an 
alphanume r i c-ed i ted  data  item  was  not  accepted. 

(ASVP9.A) 


Procedure  Division  ...........  1-99 

Conditional  empressions  ............  II-Al 

Simple  condition.  ..............  11-41 

Relation  condition.  ............  11-41 


20 


' >.- 


t 


r 


CC VS74-VSRPZ5 


Rptational  operators 
tMOTD  GREATER.  THAN 
CNOn  LESS  than 

[not:  equal  to 

Corparison  of  rueeric  operands.  .....  11-42 

CoKparison  of  nonnuaieric  operands  (oper- 
ands nust  be  of  equal  size)  .....  11-4? 

Class  condition  ..............  11-43 

NOT  option 

Switch-status  condition  ..........  11-44 

The  arithaetic  statements  ...........  11-5T 

Arithmetic  operands  limited  to  18  digits 
Overlapping  operands.  .............  11-51 

The  ACCEPT  stateaent  (only  one  transfer  of  data)  11-53 
The  ADD  statement  ...............  11-55 

i den t i f i er / 1 i t er a I series 
TC  identifier 

2.1.3  --- 


* The  move  of  a group  item  to  an  alphanumeri c-edi ted  data  item 

* did  not  produce  the  expected  result. 

* (NC105  E.1) 


GIVING  identifier 
ROUNDED  phrase 
SUE  ERROR  phrase 

■'he  ALTER  stateaent  (only  one  procedure-name).  . 11-57 

The  DISPLAY  statement  (only  one  transfer  of  data)  11-59 

The  DIVIDE  statement  ....  .....  11-61 

INTO  identifier 

EY  i dent i f ie r / I i t e ra I 

GIVING  identifier 


ROUNDED  phrase 
SIZE  ERROR  phrase 

The  ENTER  stateaent 11-63 

The  EXIT  stateaent  ...............  11-64 


The  GO  TO  stateaent  (procedure-naae  is  required)  11-65 
DEPENDING  ON  phrase 

The  IF  stateaent  (statements  aust  be  iaperative)  11-66 
ELSE  phrase 

The  INSPECT  stateaent  (only  single  character 

data  itea)  ...........  11-68 

TALLYING  phrase 
ALL 

LEADING 
CHARACTERS 
REPLACING  phrase 
ALL 

LEADING 

FIRST 

CHARACTERS 

TALLYING  and  REPLACING  phrases 
The  noVE  stateaent  ...............  11-74 


1 
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2.2  NUCLEUS  LEVEL  2 

All  rirnents  of  1 NUC  1^2  are  a part  of  2 NUC  1^2 

LapQuaop  Concerts.  ...................  I-7S 

Characters  used  for  punctuation J-65 

/ conina 

; seniicolon 

Characters  used  for  arithaietic  operations.  ......  1-52 

* add  it  ion 

- subtraction 

* leulti  plication 

/ division 

* » e « ponent i at i or 

Characters  used  in  relations 1-66 

= eaual  to 

> great  er  t han 

< Ic  ss  than 

Separators 1-75 

The  separators^  seaicolon  and  comira»  are  allowed  . . Jl-1 
Ch ar at t er -s t ri nos . ..................  1-76 

COBOL  words 1-76 

Lser-defined  words  ................  1-76 

cond it  ion-name 
data-name 

Need  not  begin  with  an  alphabetic  character.  . II-1 

ray  be  Qualified  if  necessary  for  uniqueness  . 11-1 

Reserved  words  ..................  1-79 

Figurative  constants  ..............  1-80 

7FR0S;  ZEROES 

SPACES 

HlGh-VALUES 

LOW-VALUES 

eUOlES 

ALL  literal 

Connectives  ..................  1-79 

Qualifier  connectives:  0F»  IN 

Series  connectives:  r (separator  coaea) 

and  ; (separator  seaicolon) 

Logical  connectives:  AND*  OR#  AND  NOT#  OR  NCT 

Qualification  ....................  1-87 

Reference  foraat  ...............  1-105 

Continuation  of  lines  (continuation  of  words  and 

numeric  literals  is  allowed)  11-1 

2.2.1  — - 

• The  coapiler  did  not  accept  continuation  of  a nuaeric  literal 

• used  as  an  operand  in  a NOVE  statement. 

• (NC205  A.1) 

2.2.2  - 

• The  coapiler  did  not  accept  an  IF  statement  which  contained 

• words  that  eatended  across  several  source  lines. 
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I cent i 1 i c at  ion  Division.  1-94 

TDe  0*  1 € -CO’^F  ILt  0 paragraph.  .............  11-4 

Environment  Division 

The  SPECUL-h^rES  paragraph 11-8 

a I phabe t -name  clause 
literal 

Data  Division.  .....................  1-97 

The  data  description  entry  ..............  11-12 

Level-number  .....................  11-17 

n through  49  ( I ev e I -numbe rs  may  he  1 or  2 dioits)  . 

6 b 
ft 

The  REDEFINES  clause  (may  be  nested)  . ........  11-27 

The  REN4NES  clause  (may  be  nested)  .'.  ........  11-29 

da  t a -name 

data-name  THRU  data-name 

The  VALUE  clause 11-36 


literal-1/  literal-2 
literal-1  THRU  literal-2 
literal  range  series 


Procedure  Division  .............  1-99 

Arithmetic  expressions  ................  11-39 

Conditional  expressions.  ...............  11-41 

Simple  condition  . . . . . . . . . . . . . . . . . . 11-41 

Relational  condition  ...............  11-41 


Relational  operators 
CNCT3  = 
tNOn  > 

CN0T3  < 

Comparison  of  nonnumeric  operands  (operands  of 


uneaual  size  are  allowed) 11-42 

Condition-name  condition  .............  11-44 

Sign  condition  ..................  11-44 

NOT  option 

Complex  condition.  .................  11-45 

Logical  operators  AND/  OR/  and  NOT 

Negated  simple  condition  .............  11-46 

Combined  and  negated  combined  conditions  .....  11-46 

Abbreviated  combined  relation  condition.  ......  11-47 

riultiple  results  in  arithmetic  statements.  ......  11-51 

The  ACCEPT  statement  (no  restrictions  on  the  number 

of  transfers  of  data) 11-53 

ERON  phrase 

The  ADD  statement.  ..................  11-55 

TO  identifier  series 
GIVING  identifier  series 
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COPRrSPOtfD  IKG  phrase 

The  ALTfK  statenent.  . . . . . . , . . . . . . . . . . 11-57 

The  series  option  is  allowed 

The  COrtPUTE  stateeert 11-56 

identifier  series 
ROUNDED  phrase 
SIZE  ERROR  phrase 

The  DISPLAY  stateuient  <no  restrictions  on  the  nueiber 

of  transfers  of  data).  . . . . . . . . . .•  . . . . 11-59 

UPON  phrase 

The  DIVIDE  staterent  .................  11-61 

INTO  identifier  series 
GIVING  identifier  series 
REhAINDER  phrase 

The  GO  TO  statement  (p r o ce du re -n am e may  be  omitted).  . 11-65 

The  IF  statement  (nested  statements)  .........  11-66 

The  INSPECT  statement  ( » u I t i -c ha rac t er  data  items)  . . 11-68 

series 

The  F*OVE  statement  ..................  11-74 

CORRESPONDING  phrase 

The  HULTIPLY  statement  11-77 

BY  identifier  series 
GIVING  identifier  series 

The  PERFORM  statemert 11-78 

UNTIL  phrase 
VARYING  phrase 

The  STRING  statement  . . . . . . . . . . . . - . . . . 11-86 

OELIFllTED  series 
POINTER  phrase 
ON  OVERFLOW  phrase 

The  subtract  statement  ................  11-89 

FR08  identifier  series 
GIVING  identifier  series 


• A data  item  containing  an  edited  picture  ch. aracter-string  which 

• was  the  subject  of  the  GIVING  phrase  did  not  produce  the  eipected 

• result. 

• (NC213.B) 


CORRESPONDING  phrase 

The  unstring  statement  11-91 

OELINITEO  BY  phrase 
POINTER  phrase 
tallying  phrase 
ON  OVERFLOW  phrase 
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2.3  TABLE  E-ASOLING  LEVEL  1 

Language  Concepts 

User-defined  words.  . . 
incex-naeie 

Subscripting  - 3 levels 
lnde>ing  - 3 levels  . . 


1-76 

1-89 

1-89 


Data  Division 

The  OCCURS  clause 111-2 

integer  TlfffS 

INDEXED  BY  index-naeie  series 

The  USAGE  IS  INDEX  clause 111-5 


Procedure  Division 

Relation  conditions  ..........  111-6 

Corparisons  involving  indea-naves  and/or 
index  data  iters 

Overlappirg  operands.  ..............  111-6 

The  SET  staterent 111-11 

inoea-naae / i de nt i t ie r series 
inoea-nare 

UP  BY  i dent i f i er / i nt eaer 
DOWN  BY  ident i t ier/ integer 
indea-naaie  series 
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2.4  TABLE  HANDLING  LEVEL  ? 

All  cl*Bents  of  1 T8L  are  a part  of  2 Tpl  1r2 


Data  Division 

The  OCCURS  clause 

intrqer-1  TO  inteoer-2  DEPENDING  ON  data-naae 
ASCENDING/ DESCENDING  data-naae 
data-naire  series 
ASCENDING/DESCENDING  series 


Procedure  Division 

The  SEARCH  staferent.  . . 
VARY  INC  ph  rase 
AT  END  phrase 
WHEN  phrase 

The  SEARCH  ALL  stateaent. 
AT  END  phrase 
WHEN  phrase 
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2.5  SEOUEKTIAL  1*0  LEVEL  1 
Language  Concepts 

L se r- de t i ned  words  ..................  1-76 

f i le -ri2ire 
re  cord-name 

I-C  status IV-1 

Environment  Division 

The  FlLE-CPMTROl  paragraph  ..............  IV-A 

The  file  control  entry  . . . . . . . . . . . . . . . . IV-A 
SELECT  clause 

ASSIGN  TO  imp  I ement or -name  clause 
OKGAMIATION  IS  SEGUEMIAL  clause 
ACCESS  MODE  IS  SFOUENTIAL  clause 
FILE  status  clause 

The  I-O-CONTROL  paragraph.  . . . . . . . . . . . . . , IV-6 
RERUN  clause 
SAVE  AREA  clause 
SA»E  AREA  series 

Data  Division 

file  Section  .....................  IV-9 

The  file  description  entry  ..............  1V-1C 

The  record  description  entry  .............  lV-9 

The  BLOCr  CONTAINS  clause lV-11 

integer  CHARACTERS 
integer  RECORDS 

The  CODE-SET  clause IV-12 

The  DATA  RECORDS  clause IV-13 

da  t a-name 
data-name  series 

The  LABEL  RECORDS  clause  lV-14 

STANDARD 

OriTTED 

The  RECORD  contains  clause  IV-18 

fnteger-1  TO  inteqer-2  CHARACTERS 

The  VALUE  OF  clause lV-19 

iaplceentor-nsae  IS  literal 
implementor-name  IS  literal  series 

Procedure  Division 

The  CLOSE  statement  (only  a single  file-name  may  appear 

in  a CLOSE  statement).  .......  IV-20 

REEL 

UNIT 

The  OPEN  statement  (only  a single  file-name  may  appear 

in  an  OPEN  statement) 1V-2R 

INPUT 

OUTPUT 

I-O 

The  READ  statement  .............  IV-28 


28 


CCVS74-VSR325 


M 


INTO  identifier 
AT  END  phrase 

The  REyRITE  stateaent.  . . . 

FROtt  ioent  i f ier 
The  USE  staterent.  , . . , . 
EX CE PT ION/ t R ROR  PROCEDURE 
ON  f i I e -n  aae 
ON  INPUT 
ON  OUTPUT 
ON  I-O 

The  yRITf  stateaent  - , . . 


FRON  i dent i f i er 


0EFORE/AFTFR  integer  LINES 
BEFORE/AFTER  PACE 


IV-31 

IV-32 

IV-34 
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2.6  SfOUEMIAL  1-0  LEVEL  2 

All  *lr«ents  of  1 SEC  1^2  are  a part  of  2 5E0  1/2 


Language  Concept  s 

Special  renister  ..................  I-8C 

LlhA6E-C0UNlER IV-3 

Enuironirent  tiwision 

The  flLE-CONTROL  paragraph  .............  IV-A 

The  file  control  entry  ...............  lV-4 

SELECT  clause 

OPTION'L  phrase 

RESERVE  integer  AREA(S)  clause 

The  1-O-COATROL  paraoraph.  .............  IV-6 

SA«E  PECORC  AREA  clause 
SAME  RECORP  AREA  series 
MULTIPLE  fILE  TAPE  clause 


Data  Division 

The  file  description  entry.  .............  IV-1C 

The  FLOCK  COKTAINS  clause  IV-11 

integer-1  TO  inteoer-2  RECORDS 
integer-1  TO  integer-2  CHARACTERS 

The  LINAGE  clause IV-15 

FOOTING  phrase 
TOP  phrase 
BOTTOM  phrase 

The  VALUE  OF  clause lV-19 

iapleeentor-name  IS  data-na*e 
iepleaentor^naae  IS  data-naae  series 

Procedure  Division 

The  CLOSE  stateaent IV-20 

NO  REWIND/  REMOVAL/  or  LOCK 
file-name  series 

The  OPEN  stateaent IV-2A 


INPUT 

REVERSED 
NO  PEUIND 
OUTPUT 

NO  REWIND 
EXTEND 

tile-name  series 

INPUT/  OUTPUT/  1-0/  and  EXTEND  series 


The  USE  statement IV-32 

EXCEPTION/ERROR  PROCEDURE  ON  file-naae  series 
EXCEPTION/ERROR  PROCEDURE  ON  EXTEND 

The  WRITE  stateaent 1V-3A 

BEFORE/AFTER  identifier  LINES 
BEFORE /AFTER  mnrmoni c-name 
AT  END-OF-PAGE  i ape ra t i ve -St a t eaen t 
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RELATIVE  1-0  LEVEL  1 
Languaqe  Concepts 

User-defined  words.  ......... 

f i I e-n  ame 
re  cord-naoe 

I -0  status 

Enwironir.  ent  Division 

The  FILE-CONTROL  paraoraph.  . . . . . 
The  file  control  entry.  ....... 

SELECT  clause 

ASSIGN  TO  iepl ementor-name  clause 
ORGANIZATION  IS  RELATIVE  clause 
ACCESS  NODE  clause 
SEQUENTIAL 
RANDON 

FILE  STATUS  clause 

The  I-O-CPNTROL  paraoraph  

RERUN  clause 
SANE  AREA  clause 
SANE  AREA  series 

Data  Division 

File  Section.  ............ 

The  file  description  entry.  . . , . . 
The  record  description  entry.  . . . . 

The  BLOCr  CONTAINS  clause  

integer  CHARACTERS 
integer  RECORDS 

The  DATA  RECORDS  clause  

dat  a-naae 
data-naae  series 

The  LABEL  RECORDS  clause 

STANDARD 

ONITTED 

The  RECORD  CONTAINS  clause 

integer-1  TO  integer-?  CHARACTERS 
The  VALUE  OF  clause  ......... 

irpleaentor-nane  IS  literal 
iapleaentor-naae  IS  literal  series 

Procedure  Division 

The  CLOSE  stateoent  

UlTH  LOCK 
f i le -naoe  se ri es 

The  delete  statenent.  ........ 

INVALID  KET  phrase 

The  OPEN  stateaent.  ......... 

INPUT 

OUTPUT 
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1 i It-namt  sv  r i rs 
input,  output,  and  1-0  series 
The  READ  statement.  ...... 

INTO  identifier 
AT  END  phrase 
INVALID  rEY  phrase 
The  REWRITE  statement  ..... 

FROm,  identifier 
invalid  rEY  phrase 
Thf  USE  statement  ....... 

exception/error  procedure 

ON  file-name 
ON  input 
ON  OUTPUT 
ON  1-0 

The  hRITE  Statement.  ..... 
FRON  i den t i f i er 
INVALID  KEY  phrase 


W-23 

V-26 

V-30 

V-32 
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2.8  relative  I-O  level  2 

All  rleurnts  of  1 REL  0*2  are  a part  of  2 REL  0*2 


Environaent  Division 

The  FILE-CONTROL  parapraph.  . . . . . . . , . , . . , , V-5 

The  file  control  entry.  ................  V-5 

SELECT  clause 

RESERVE  inteqer  AREA(S)  clause 
ACCESS  MODE  IS  DTNAKIC  clause 

The  I-O-CONTROL  paragraph  ...............  V-7 

SAF’E  RECORD  AREA 

SARE  RECORD  AREA  entries 


Data  Division 

The  file  description  entry.  ..............  V-1  1 

The  E<L0Cr  CONTAINS  clause V-12 

integer-1  TO  integer-2  RECORDS 
integer-1  TO  integer-2  CHARACTERS 

The  VALUE  OF  clause V-16 

i«ple»ientor-na»e  IS  data-naae 
iaplenentor-name  IS  data-naae  entries 

Procedure  Division 

The  READ  statement.  ..................  V-23 

NEXT  RECORD 

The  START  stateaent  ..................  V-28 

KEY  IS  phrase 
INVALID  KEY  phrase 

The  USE  stateaent  ..............  V-3C 

EXCEPTION/E RROR  PROCEDURE 
ON  file-naae  series 


A 
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2.9  IK6EXED  I-O  LEVEL  1 


Language  Concepts 

Liser-def  inrd  words.  .................  1-76 

f i le-na»e 
re  cord -name 

I-O  status Vl-2 

Environment  Division 

The  flLE-CCNTPOL  paragraph VI-5 

The  file  control  entry.  ...............  VI-5 

SELECT  clause 


ASSIGN  TO  ir p I ement or-name  clause 
ORGANlIATlnh  Is  INDEXED  clause 
ACCESS  AtODE  clause 
SEQUENTIAL 
RANDOA, 

RECORD  KEY  clause 
FILE  STATUS  clause 

The  I-P-CONTRCl  paraoraoh  VI-8 

RERUN  clause 
SAME  AREA  clause 
SAP*E  AREA  series 


Data  Division 

File  Section.  ....................  Vl-11 

The  file  description  entry.  .............  VI-12 

The  record  description  entry.  ............  VI-11 

The  BLOCK  CONTAINS  clause  VI-13 

integer  CHARACTERS 
integer  RECORDS 

The  DATA  RECORDS  clause VI-1C 

data-name 
data-name  series 

The  LABEL  RECORDS  clause VI-15 

STANDA  RD 
OKITTED 

The  RECORD  CONTAINS  Clause VI-16 

integer-1  TO  integer-2  CHARACTERS 

The  VALUE  OF  clause VI-17 

iapl eaentor-name  IS  literal 
iapleaentor-naae  IS  literal  series 

Procedure  Division 

The  CLOSE  stateaent  .....  V1-1S 

WITH  LOCK 
file-naae  series 

The  DELETE  stateaent Vl-20 

INVALID  KEY  phrase 

The  OPEN  statement VI-21 

2.9.1  - — - 


• It  appears  that  improper  execution  of  the  OPEN  statement 

34 
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nay  have  invalidated  all  accesses  Bade  to  the  file  by  the 
READ  and  WRITE  statements. 

(1X205. B) 


input 

OUTPUT 

I-O 

f i I e-naae  series 

INPUT/  OUTPUT/  and  I-O  series 

The  READ  statement 

INTO  i cent i < i e r 
AT  END  phrase 
INVALID  XET  phrase 

The  REWRITE  statement  

FRON  identifier 
invalid  XEV  phrase 

The  USE  stateaent - 

EXtEPTlON/ERROR  PROCEDURE 
ON  f i le -name 
ON  INPUT 
ON  OUTPUT 
ON  1-0 

The  WRITE  statement  

EROt*  identifier 

invalid  key  phrase 


VI-24 

VI-28 

VI-32 

VI-33 
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2.10  INDEXED  I-O  LEVEL  2 

All  eleaents  of  1 INX  0^2  are  a part  of  2 INX  0«2 


Environaent  Division 

The  FILE-CONTROL  paragraph  VI-5 

The  file  control  entry  ................  VI-5 

STLECT  clause 


RESERVE  inteoer  AREA(S)  clause 
ACCESS  NODE  IS  OYN'iNIC  clause 
alternate  RECORD  KEY  clause 
WITH  duplicates  phrase 

The  I-O-CONTROL  oaraqraph.  ..............  Vl-8 

SA«E  RECORD  clause 
SANE  RECORD  AREA  series 


Data  Division 

The  file  description  entry  ..............  VI-12 

The  BLOCK  CONTAINS  clause VI-13 

integer-1  TO  integer-2  RECORDS 
integer-1  TO  inteoer-2  CHARACTERS 

The  VALUE  OF  clause. VI-17 

iap  I eaent  or-nai»e  IS  data-naae 
iapleaentor-nare  IS  data-naae  series 

Procedure  Division 

The  READ  state«ent  ..................  VI-24 

KEY  IS  phrase 
NEXT  RECORD 

The  start  stateaent.  .................  VI-30 

KEY  IS  phrase 
INVALID  KEY  phrase 

The  USE  stateaent VI-32 

EXCEPTlOft/ERROR  PROCEDURE 
ON  file-name  series 
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SORT-PERGE  LEVEL  1 


Language  Concepts 

User-defined  uords.  .................  1-76 

t i le-na«.e 

environment  Division 

The  FILE-CONTROL  paragraph.  .............  VII-2 

The  file  control  entry.  ...............  VII-2 

SELECT  clause 

ASSIGN  TO  implementor-name  clause 
Data  Division 

File  Section.  ....................  VII-S 

The  sort-meroe  file  description  entry  ........  VII-5 

The  DATA  RECORDS  clause VII-6 

The  RECORD  CONTAINS  clause VII-7 

Procedure  Division 

The  RELEASE  statement  VIl-12 

FROM  phrase 

The  RETURN  statement VII-1I 

INTO  phrase 
AT  END  phrase 


The  SORT  statement  (only  one  SORT  statements  a STOP 
RUN  Statements  and  any  associated  input-output 
procedures  allowed  in  the  nondeclarative 

portion  of  a program)  VIl-14 

KEY  data-name 

data-name  series 
ASCENDING  series 
DESCENDING  series 
■ised  ASCENDING/DESCENDING 
INPUT  PROCEDURE  phrase 
THRU 

USING  phrase 
OUTPUT  PROCEDURE  phrase 
THRU 

GIVING  phrase 


p 


1 
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2.12  SORT-PERGE  LEVEL  2 

All  elements  of  1 SRT  Or?  are  a part  of  2 SRT  Or? 


Enwironeent  Division 

TDe  file-control  paragraph VIl-2 

The  file  control  entry.  VII-2 

SELECT  clause 

The  1-P-CCNTROL  paragraph  ..............  VII-3 

SAF<E  RECORD  AREA  clause 


SAEE  SORT/SORT-RERGE  AREA  clause 
SA»E  series 

Procedure  Division 

The  PER6E  statement  .................  VII-8 

KEY  data-name 

data-name  series 
ASCENDING  series 
DESCENDING  series 
nixed  ASCENDING/DESCENDING 
COLLATING  SEQUENCE  phrase 
USING  phrase 
OUTPUT  PROCEDURE  phrase 
THRU 

GIVING  phrase 

The  SORT  statement  (multiple  SORT  statements  are 

permitted) VII-1A 

COLLATING  SEQUENCE  phrase 
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2.13  REPORT  WRITER  LEVEL  1 

2.13.1  — - 

* 

* The  Report  Writer  Module  was  not  run  during  the  validation. 


F Language  Concept 

User-defined  words  ..............  1-76 

1 i le-nare 
report-name 

[ Special  registers  ..............  I-fC 

line-counter  VlII-1 

PAGE-COUNTER  VlIl-1 

Data  Division 

Report  Section  ........  ...  VIII-2 

I The  file  description  entry  VIII-3 

: Thereportdescriptionentry.........VIJI-A 

The  report  group  description  entry  ......  VIII-6 

i The  BLOCK  contains  clause  VIII-24 

' The  CODE  clause  ...............  VIII-25 

The  CODE-SET  clause  VIII-26 

The  COLUMN  NUMBER  clause  VIII-27 

The  CONTROL  clause  VlII-28 

data-naee 
data-name  series 
FINAL 

FINAL  data-name  series 

The  data-name  clause  .............  VIII-30 

The  GROUP  INDICATE  clause  VlII-31 

The  LABEL- RECORDS  clause  VIIl-32 

The  LINE  NUMBER  clause  VIIl-33 

int  eger 
NETT  PAGE 
PLUS  integer 

The  NEXT  GROUP  clause  VIIl-35 

integer 

^ PLUS  integer 

I NEXT  PAGE 

1 The  PAGE  clause VIII-36 


integer  LINES 
HEADING 
FIRST  DETAIL 
LAST  detail 
FOOTING 


The  PICTURE  clause 11-18 

The  RECORD  CONTAINS  clause  VIII-39 

The  REPORT  clause  VIII-40 

report-name  series 

The  SOURCE  clause  VIII-41 
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The  SU^  clause VIIl-42 

UPO^  data-nsme  series 
RESET  phrase 

The  TYPE  clause VlII-45 


REPORT  HEADING  (RH) 
PAGE  HEADING  (PH) 
CONTROL  heading  (CH> 
DETAIL  (DE) 

CONTROL  FOOTING  ICE) 
PAGE  FOOTING  (PF) 
REPORT  footing  (RF> 


The  value  is  clause II-36 

The  VALUE  OF  clause  VIII-JC 

Procedure  Division 

The  GENERATE  statement  VIII-51 

report-na»e 
dat  a-name 

The  initiate  staleeent  VlII-SJ 

report -name 

The  SUPPRESS  staterent  VIII-SA 

report-name 

The  TERalNME  statement VIII-55 

report-name  series 

The  USE  staterent  ..............  VIII-S6 

BEFORE  REPORTING 


CCVS74-VSR225 


2.14  SEGrENTAIION  LEVEL  1 

Languaoe  Concepts 

Lser'defined  words. 
sea«ent-nu«ber 

Procedure  Division 

S egir  e nt -nuobe  r s ................. 

Fi»ed  seoirent-number  range  0 through  49 
Non-fi«ed  segaient -nuaiber  range  50  through  99 
All  sections  with  the  sane  segirent -nuwber  oust 
be  together  in  the  source  prograin 
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2.15  SEO'ENTATION  LEVEL  2 

All  Flearnts  of  1 SE G Or?  art  a part  of  2 SEG  Or? 

Invironment  Division 

The  OE-JECT-COMPUTER  paraoraph 


SEGPENT-LIPIT I*-5 

Procedure  Division 

Segaert-nuebers  ..................  IX"4 


Sections  with  .the  saae  segaent -nuaber  need  not 
be  physically  contiguous  in  the  source  prograa 
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2.17  LIBRARY  LEVEL  2 

All  elewents  of  1 LIB  O^Z  are  a part  of  Z LIB  0»Z 

Language  Concepts 

Lser-defined  words 
library-naae 

All  divisions 

The  COPY  stateaent 
Of  library-naae 
REPLACING  phrase 
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2.ie  OEf-Lb  UVFl  1 

•nquaqr  Concepts 

Special  reaisters 1-20 

DCF-UG-lTCf XI-1 

(nvironprnt  Division 

Ine  SCURCF -COKPUTtR  paragraph 

klTH  DCPUGGING  rCCC  clause XI-3 

ProceOure  Division 

use  FCP  DEBUGGING  stateaent XI-G 

p rocedure-naee 
proceoure-nane  series 
au  PROCEDURES 

Debugoina  lines.  ..................  Xl-10 
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2.19  DEetG  LEVEL  2 

All  rlenents  of  1 DEP  0^2  are  a part  of  2 DEB  0^2 
Procedure  Division 

USE  FOR  DEBUGGING  statement . 

ALL  REFERENCES  OF  identifier  series 
file-naae  series 
cd-naae  series 


*1-4 
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2.20  IMER-PR06kA«  COMPIUNI  C A TI  OK’S  LEVEL  1 


Oat*  Division 

Linkaar  Section XII-2 

Froeeoure  Division  • 

Procedure  Division  header.  ..............  XII-4 

USIN'G  phrase 

The  CALL  statearnt  ..................  xlI-5 

literal 

USING  data-naae  series 

The  EXIT  PROGRAM  stateaent  ..............  XII-E 
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2.22  C0H1UNICATI0N  LEVEL  1 


* The  CO»"'UN  K *T  I Oh  hooule  is  not  currently  evsluateO  «s 

• part  ot  an  official  validation.  See  Section  1.9.3. 


Language  Conceots 

User-defined  uords.  .................  1~76 

cd-naee 

Data  Division 

Coneuni cat  ion  Section  ................  1111*2 

The  coeeuni cation  description  entry  .........  I1II-3 


rOff  IhPUT  clause 
END  rrt 
ItESShGE  COUNT 
MESSAGE  DATE 
MESSAGE  TIME 
SrMZOLlC  eUEL'E 
SYMBOLIC  SOURCE 
STMPOLlC  SUF-QUEUE-n 
STATUS  KEY 
TEXT  length 
rOR  OUTPUT  clausr 
DESTINATIOS  COUNT 
destination  Table 
indexed  by 
error  key 

SYMPOLJC  destination 
STATUS  KEY 
TEXT  LENGTH 


Procedure  Division 

The  ACCEPT  MESSAGE  COUNT  stateoent XIII-12 

The  DISABLE  stateaent  ................  XIII-13 

INPUT 

OUTPUT 

KEY  ident i f ier /I i teral 

The  ENABLE  stateaent XI1I-1S 

INPUT 

OUTPUT 

KEY  ident i f ier/ liter# I 

The  RECEIVE  stateaent  XlII-17 

ME SSAGE 

INTO  ident if ier 
NO  DATA  phrase 

The  SEND  stateaent.  .................  XlII-20 

FROM  identifier-1  WITH 
WITH  EMI 
WITH  EGl 

BEFORE/AFTER  ADVANCING 
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identifier-3  LINES 
inteqer  LINES 
■neaoni c-nare 
PAGE 
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2.23  CO^'RUMCATIPN  LEVEL  2 


• The  COK^UN'I  C*  TI CN  E'odole  is  not  currently  evaluated  as 

* part  of  an  official  validation.  See  Section  f.9.3. 


All  eleoents  of  1 CO”  0/2  are  a part  of  2 COM  0»2 
CoMBuni cat  ion  Section 

The  c oirinun  i ca  t i on  description  entry.  . . . . . 

roc  input 
INITIAL 


Procedure  Division 

The  OISAPLE  statement 
INPUT 

TERMINAL 

The  ENABLE  state«ent 
INPUT 

TER”INAL 

The  RECEIVE  stateaent 
SEGMENT 

The  SEND  statement  . 
FROM  identifier-1 
WI TH  ident if ier-2 
WITH  ESI 


XIIl-3 

XIII-13 

XIII-15 

XIII-17 

XIII-20 
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SECTION  3.  CCNPILER  STATUS 

3.1  Federal  Standard  COBOL 

Section  1.5  explains  the  four  levels  of  Federal  Standard  COBOL  anc  their 
relation  to  Aeerican  National  Standard  COBOL.  This  section  lists  the  dis- 
crepancies described  in  Section  2 by  the  federal  level  in  which  the  problee 
occurs.  All  errors  listed  for  a lower  level  are  also  errors  in  any  higher 
level*  even  though  they  are  listed  only  in  the  lower  level.  The  paragraph 
•lumber  froe  Section  2 is  used  to  reference  the  errors  in  each  Federal  level. 

3.1.1  Low  Level 

2.1.1  Line  continuation  of  the  word  UORKl  N'G-ST  OR  AGE  was  net  accepted. 

2.1.2  value  clause  not  accepted  on  an  a I phnuire  r i c-ed  i t ed  cata  item. 

2.1.3  The  aove  of  a group  item  to  an  edited  item  gave  incorrect  results 

3.1.2  Lcw-I nt er»ed i at e Level 
None 

3.1.3  H i ah- I nt e r med i a t e 

2.2.1  Line  continuation  of  numeric  literals  was  not  accepted. 

2.2.2  Line  continuation  of  certain  COBOL  words  was  not  accepted. 

2.2.3  An  edited  data  item  used  as  the  receiving  operand  of  a 
subtract  statement  gave  incorrect  results. 

3.1. A Hioh  Level 

2.9.1  Improper  execution  of  the  OPEN  appears  to  invalidate  all 
accesses  by  the  READ  and  WRITE  statements. 

3.2  American  National  Standard  COBOL 

Full  American  National  Standard  COBOL  consists  of  the  entire  set  cf  language 
elements  defined  in  the  ANSI  COBOL  standard  Crefer  to  1.7).  It  is  also  the 
equivalent  of  high  level  Federal  Standard  COBOL  plus  the  Report  Writer 
module.  Therefore*  this  section  lists  only  those  discrepancies  found  while 
validating  the  Report  Writer  nodule. 

2.13.1  The  Report  Writer  nodule  programs  were  not  run  tor  this 
validation. 
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SSCTJOt*  * SOFTWARE  INVIRONRERT. 

The  conpiler  referenced  in  this  docunent  was  validated  usina  the  software 
environwent  described  in  this  section.  When  usina  a modification  of  the 
described  environments  the  compiler  ray  or  ray  not  continue  to  conform  to  the 
Standard.  It  should  be  noted  that  during  the  validation  procesSs  an  attempt 
is  made  to  validate  as  many  different  options  as  possible. 

The  use  of  compiler  options/  imp lerent o r "names  in  the  Envirorrent  Division 
and  any  fore  of  optiriaation  which  is  not  described  in  this  report  could  cause 
the  corpiler  to  produce  a proorar  that  does  not  perform  according  to  the 
specifications  of  Standard  COBOL.  Only  the  environment  described  ir  this 
document  has  been  used  with  this  corciler  to  satisfy  the  requirements  of  FIPS 
PUB  21-1  and  FPPR  1 01  -32 . 1 305 . 1 a . (Any  deviations  which  must  be  ccrrected  as 
per  the  referenced  FpmR  gre  described  in  Sections  2 and  3 of  this  report.) 

1.  Options  or  parameters  used  on  the  processor  call  statement  for  the  compiler: 
The  following  op t ions /par amet e r s were  used  during  the  validation. 

Optic rs  specified: 

(a)  with  no  optimization  invoked  the  compiler  call  statement  was 

//COPP  EXEC  PG*  = IKFCBL00/REGION  = 128r:/PARP=*ADV/SI2E  = UCK/ 

//  BUF=16K/TRUNC/LVL=D/AP0/LAG/LIe* 

(b)  With  optimization  invoked  the  compiler  call  statement  was 

//COPP  EXEC  PGP=1KFCPL00/REG10N=128X/PARM=*ADV/SIZE=16CK» 

//  BUF=16K/TRUKC/LVL  = O.APO/LAG/LIR/OPTImIZE  ' 

Options  defaulted: 


N0P1AP 

LINECNT=57 

SPACE1 

KOCLIST 

FLAGE 

SEQ 

NOSUPPAP 

SOURCE 

NODPAP 

NOXREF 

NOSXREF 

LOAD 

hODE  CX 

NOENDJOB 

NOFLOW 

NOTERP 

NONUP 

NOBATCH 

NONAPE 

COFIPILE=01 

NOSTATE 

NORESIDENT 

NODTAFl 

NOSYNTAX 

NOSTSMDMP 

NOOPTimiZE 

NOTEST 

VERB 

ZWB 

SYST 

LVL=D 

NOLIST 

NOFDECe 

NOCDECX 

LC0L2 

L120 

NOCOUNT 

ADV 

NOPRINT 

DUPP 

NOVeSUP 

NOVBREF 

LANGLVL(2) 

The  RES  instead  of  the  NORES  and  the  DTNAn  instead  of  the  NODTNAf  options  were 
specified  for  all  Inter-prograa  Communication  audit  routines. 
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2.  tnvironi-.ent  Division  iap  ( rcent  or -nares  . 

Printer  destined  files 
S-SYSPK IKT 

The  associateo  00  stateeent  is 

//SYSPRINT  00  SYSCL1=A  (for  spooled  files) 

//SYSPRIRT  DO  SYSOUI=C10  (for  nonspooled  files) 

The  latter  staterent  was  required  for  those  prograas  using  the  LIRAGT 
e lause . 

Tape  files 

S-TAPE1 

An  eiaaple  of  an  associated  DO  stateaent  is 
//TAPE1  00  UNIT=16BPl»0Sh=RT1/0CB=DEN=3 

Sequential  Pass-storage  files 

SE(l«tAS1 

An  eiaaple  of  an  associated  00  stateaent  is 

//SEQPAS1  00  UNIl=3J3r»SPACE=(TRr/(50e20))rOSN=8SSOPAS1 

Re  I at i ve  1-0  files 

RELPAS1 

An  eiaaple  of  an  associated  00  stateaent  is 
//RELPAS1  DO  0SN=RELPAS1e0ISP=SHh 

Index  1-0  files 

1NXKAS1 

An  eiaaple  of  an  associated  00  stateaent  is 
//INXP.AS1  00  DSN  = SHRr  AP.P»AP0R6 

Sort  files  (SO) 

S0RT1 

An  eiaaple  of  an  associated  00  stateaent  is 

//S0RT1  DO  UNlT<3330rSPACE=(TRXe(S0e20))r0SNxttSORT1 

Switch  naaes 
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UPSl-1 

UPSI-C 

Source  Coeouter  panes 
IBP-370 

Object  Computer  panes 
IBP-370 


3.  Cpt in izat iop.  The  conpiler  nay  or  nay  Pot  have  optinizatiop  features. 

If  there  was  ap  optinizatiop  feature  available^  it  was  used  ouripc  the 
valiOation  process  (durinq  a separate  eiecutiop  of  the  Conpiler  Validation 
Systen)  to  deternipe  if  its  use  causes  the  conpiler  to  produce  a prograa  which 
does  pot  give  the  expected  results.  If  the  optinization  is  ipvcked  through 
the  conpiler  call  statenent  then  it  is  nent ioned  ip  paragraph  1 atcve.  If 
it  is  iPvoked  through  the  iPtroduction  of  syntax  in  other  than  the  Data 
and  Procedure  Pivisions  of  the  source  progran  it  is  shown  below.  Cptinization 
which  would  require  nodification  to  the  Data  and  Procedure  Divisicrs  is  rot 
considered  in  this  report  in  that  it  is  beyond  the  scope  of  the  use  of 
standard  COBOL  and  the  validation  process. 

The  optimization  feature  for  this  conpiler  is  invoked  through  the  conpiler 
call  statenent.  See  1.  above.  There  was  no  differnce  in  the  execution 
of  the  prograns  when  the  optinization  feature  was  invoked. 


4.  Conpiler. 

IBP  OS/VS  COBOL  RELEASE  2.0  HOD  0 
3.  Operating  systen. 

RVS  3.7  VS2  with  SU8 
6.  Conputer  Systen  Reference  Manuals. 

(a) .  IBM  VS  COBOL  for  0S/VS<  Docunent  No.  eC  26-3857-0 

(b) .  IBP  OS/VS  COBOL  Conpiler  and  Library  Progranners  Guides 

Pocunent  No.  SC  28-6A83-1  . 
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StCTICK  5.  ASCII  VALIDATIOK 
S.1  Purpose  of  ASCII  Validation 

The  ASCII  Validation  is  performed  by  runninq  a sequence  of  three  CCVS7A 
prcpraes  (SC11£^  S0119»  SOl^O)  using  special  procedures.  The  purpose  of  this 
special  run  is  to  validate  that  the  comp i I er /ope r at i ng  system  beirg  tested 
is  capable  of  processing  ASCII  code  represented  on  magnetic  tape  and 
punched  cards  that  mere  produced  (in  accordance  with  the  appropriate  American 
National  Standard)  by  another  system.  There  is  also  a magnetic  tape  and  a care 
tile  created  during  the  validation  which  will  be  taken  to  another  system  for 
further  processing.  The  purpose  is  to  determine  whether  the  cor p i I e r /ope ra t i r c 
systei  being  tested  can  also  produce  ASCII  representation  on  magnetic  tape  and 
punched  cards  which  can  be  processed  by  a another  computer  system. 


5.2  Applicable  ANSI  Standards 

The  ASCII  Validation  is  based  on  several  American  National  Standards  and 
presumes  their  support  by  the  comp i I er /oper at i ng  system  being  validated. 

These  are: 

1.  American  National  Standard  Programming  Language  tOEOL  X3. 23-1974 

- The  CODE-SET  clause  is  used  to  read  and  write  the  ASCII 
files. 

The  PROGRAM  CCLLATING  SECUENCE  clause  is  used  to  process  the 
data  in  ASCII  mode  as  well  as  native  mode. 

- The  SIGN .. .SEPARATE  clause  is  used  for  signed  data  and  all 
data  is  in  the  DISPLAY  (character)  mode. 

2.  American  National  Standard  Code  for  Information  Interchange 
(ASCII)  X3. 4-1968.  (Note  that  this  describes  the  cooe^  not  the 
labeling  and  tape  recording  formats.) 

3.  American  National  Standard  Hollerith  Punched  Card  Code« 

X3. 26-1970. 

A.  American  National  Standard  Magnetic  Tape  Labels  for  Information 
Interchange^  X3. 27-1969. 

5.  American  National  Standard  Recorded  Magnetic  Tape  fer  Informatior 
Interchange  (800  CPI,  NlHl) , X3. 22-1967. 

6.  American  National  Standard  Recorded  Magnetic  Tape  fer  Information 
Interchange  (1600  CPI/  PR)/  X3. 39-1973. 

The  language  of  the  1974  COBOL  Standard  provides  the  capability  to  accept/ 
process/  and  produce  ASCII  code.  The  ASCII  Standard  describes  the  code  insofar 
as  the  bit  arrangement  and  configuration/  but  does  not  address  recording  tech- 
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niques/  record  formats  or  any  labeling  scheme.  The  800  CPlr  NZRI  magnetic  tare 
recording  standard  was  used  to  establish  the  recording  density  anc  technigues. 
(160C  CPI*  PE  based  on  X3. 39-1973  "Recorded  Magnetic  Tape  for  Infcrmation  Inter- 
change" could  be  used  under  special  arrangements.)  The  tape  labelirg  scheme 
used  in  these  tests  is  based  on  X3. 27-1969  but  is  also  compatible  with  the 
revision  to  that  tape  label  standard.  Only  the  V0L1*  HDR1*  and  ECF1  labels  are 
used.  The  records  are  fiied  length  and  unblocked. 


5.3  ASCII  Validation  Process 

During  the  validation*  the  Validation  Manager  for  the  federal  COBOL  Com- 
piler Testing  Service  uses  the  A SC  1 1 -enc oded  magnetic  tape  and  card  files 
in  addition  to  the  normal  tape  files  associated  with  a validation.  For  the 
ASCII  portion  of  the  validation  the  following  steps  are  performed: 

1.  The  tape  file  and  card  deck  (produced  on  another  computer  system) 
are  used  as  input  to  several  programs  designed  to  validate  whether 
the  system  being  validated  can  accept  and  process  the  data  as 
defined  by  the  respective  standards.  Any  changes  made  during  thi' 
validation  to  the  source  programs  reading  the  data  are  noted 
below  in  5.4.1. 

2.  A tape  file  and  card  file  are  produced  during  the  validation  whic' 
should  prove  to  te  identical  to  the  files  described  in  1 above. 
These  two  files  are  then  processed  on  a different  computer  system 
to  determine  the  degree  to  which  the  system  being  validated  sup- 
ports the  ASCII  standard.  Any  changes  made  during  this  validation 
to  the  source  program  producing  the  data  are  noted  below  in  5.4.2. 


5.4  Results  for  This  Validation 

1.  The  systmm  did  not  have  a card  punch  or  card  reader  for  pro- 
cessing the  A SC  1 1 -encoded  punched  cards  and  therefore*  ASCII 
code  represented  on  punched  cards  could  not  be  validated.  for 
this  validaton  the  data  intended  for  these  devices  had  to  be 
placed  on  magnetic  tape  in  order  to  emecute  Audit  Rcutines  SQIIf* 
SC119  and  SS120. 

2.  Both  the  ASC 1 1 -enc eded  magnetic  tape  produced  by  a foreign 
system  and  the  tape  produced  as  a result  of  the  validaton  were 
unlabeled  for  this  validation.  The  recording  fcriat  of  the 
magnetic  tape  proouced  during  the  test  was  that  corresponding 
to  American  National  Standard  Recorded  magnetic  Tape  for  Infor- 
mation Interchange  (1600  CPI*  PE)  X3. 22-1973.  A separate  job 
was  used  to  place  the  tape  in  800  CPI  for  testing  the  tape  on 
another  computer  system.  The  ASCII-encoded  magnetic  tape  which 
resulted  was  read  by  the  foreign  computer  system  and  proved  to  be 
correct  in  both  content  and  format. 
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APPENDIX  A 

VALIDATION  SUPNARY  WORKING  DCCUHENT 


A-1  This  appendix  is  a workino  paper  produced  during  the  validation 

and  occurerts  the  results  of  the  compilation  and  execution  of  eacl  cf  the 
programs  comprising  the  CCVS.  The  results  contained  herein  are  tased  on 
the  use  of  the  compiler  uithin  tne  Validation  Environment  identified  in 
this  aptendii.  This  appendix  (Validation  Summary  horkinq  Documert)  is  net 
part  of  the  official  Validation  Summary  Report  (VSR)  and  is  not  intended 
to  reflect  in  any  uay  the  compiler's  usefulness  or  degree  of  confcrmance 
to  the  language  specifications. 

The  reader  of  this  appendix  should  keep  in  mind  that  the  same  pro* 
blea  area  aay  appear  in  more  than  one  program*  but  is  considered  crly  as  one 
single  discrepancy  and  as  such  is  reflected  only  once  in  the  body  of  the 
VSR.  (The  VSR  mill  in  turn  only  reference  the  first  occurrence  of  the 
problem  in  the  appendix.) 

This  appendix  is  divided  into  tuo  parts.  The  first  part  describes 
the  Validation  Environment.  The  second  part  of  the  document  is  divided  into 
categories  of  information:  coapi'ation  and  execu t ion  N-esul t s . 

The  reference  dccument  for  COBOL  is  TIPS  PUB  21-1  < X3. 23-1 974 ) . 


I 
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CO^'PILER 

COPPLTER 

OPERATING 


VALIDATION  ENVIRONNENT 

IDENTIFICATION:  I PP  OS/VS  COBOL  Relrase  2. 

SYSTEM:  IPM  370/158 

SYSTEK:  MVS  3.7  VS2  with  SUfc 
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ASVF9 


The  corpiler  Tlsaped  the  VALUE  clause  on  a Data  Division  entry/ 
category  was  alphanueeric  edited/  with  the  following  aessaqes: 

IKF2129I-C  VALUE  CLAUSE  LITERAL  DOES  NOT  CONFORM  TO  PICTLRE 
CHANTE  TO  IFRC. 

IKF2130I-E  ITEfr  CANNOT  HAVE  VALUE  CLAUSE.  CLAUSE  IGNORED. 
The  Data  Division  entry  was 


whose 


02  D-OATE  PIC  XXBXXPXXPXXPxy  VALUE  SPACE. 
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DEBUG  rODULE  LEVEL  1 
DB101  through  DBIUS 
A . Coop  i I at i on 
ho  errors. 
b . E lecut ion 
No  errors. 

DEBUG  HOOULE  LEVEL  ? 
DB201  through  DB20A 
A . Comp  i I at  ion 
No  errors. 

G . E « e cut  ion 
No  errors. 


I 


i 

} 


I 
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INDEX  I-C  rCDULE  LEVEL  1 

1X101  through  1X107 

A.  COBpilation 
No  errors  . 

B . E kecuti on 
No  errors. 

INDEX  I-C  NODULE  LEVEL  2 

1X201  through  IX20A 

A . Comp i I at i on 
No  errors. 

B.  Execution 
No  errors  . 

1X205 

A . Cocp i I at i on 
No  errors. 

B . E lecut ion 

1.  In  test  INX-1EST-0C1  a READ  lX-fD1  ..  INVALID  KEY  ... 
statement  (random  read)  is  used  to  access  a file  in  the 
OYNANIC  ACCESS  mode.  The  INVALID  KEY  path  was  taken  on 
each  execution  of  the  READ  statement. 

2.  INX-TEST-002  is  to  create  an  INDEX  I-O  file  of  200  records 
under  Dynamic  Access  rode  and  then  read  the  file  both  randomly 
and  sequentially.  The  INVALID  KEY  path  appeared  to  be  taken 
on  the  first  execution  of  the  WRITE  statement. 

3.  I NX- TE ST-003. 02  and  INX-TEST-003.03  failed;  however#  these  two 
tests  depend  on  the  file  produced  in  INX-TEST-002.  The  failure 
of  these  two  tests  appears  to  be  a result  of  B.2  above. 

The  above  three  errors  appear  to  be  caused  by  the  improper  execution 
of  the  OPEN  statement  for  the  data  files  by  the  VSAn  file  facility 
thus  invalidating  all  accesses  to  the  file. 

1X206 
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A . CoBp i I at i on 
t»o  errors. 

B.  Execution 

this  program  is  similar  to  IX2C5  and  produced  the  sane  type  of 
failures  as  described  in  B.1«  6.2^  and  B.3  above. 

1X207  through  1X208 

A . CoBpi lat ion 
No  errors. 

B.  Execution 
No  errors  . 
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IHTER-PR06R4P".  C OPRUN  1 C R1 1 ON  ROOULE  LEVEL  1 
IC101  through  1C115 
A.  C onp i I at  ion 
No  errors, 
e . Execut ion 
No  errors. 

IC151  through  1C152 

A . Compi  lat ion 
No  errors. 

B.  Execution 
No  errors  . 

INTER-PRCGRAR  CORK  UNI C A TI ON  NODULE  LEVEL  2 
IC201  through  1C208 
A.  COKpilation 
No  errors, 
e.  Execution 
No  errors. 


i 
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LIBRARY  BOOtLE  LEVEL  1 
L6101  through  LB107 
A . Cotp i I £t ion 
Uo  errors. 

6.  Execution 
Ho  errors. 

LIBRARY  MODULE  LEVEL  2 
LB201  through  LB207 

A . Coep i I et i on 
No  errors. 

B.  Execution 
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NUCLEUS  NODULE  LEVEL  1 
NC101  through  NC10R 
A.  Coapilation 
ho  errors. 
Eiecut ion 
No  errors. 


e . 


NC1C5 

A . 


e. 


Cotpi lat ion 
No  errors. 

E le  cut  ion 
1 


NOVE-TEST-76  tests  the  aove  of  a group  data  iteo  to  tfe 
alphanuaeric  edited  data  itea  with  the  picture  character-string 
OXXXXXO. 


Coaputed  result 
Eipected  result 


0123AP0 

123AB 


In  NOVE-TEST-g?  a NOVE  of  a group  date  itea  to  an  alphanuaeric 
edited  data  itea  did  not  produce  the  expected  results. 


Corputed  resu It : 
Expected  result: 


AB-.-xrz  ♦-  . O 70012345t72 

AB...XY7*-  =$,  .()/  0123A56789 


NC106  through  NC112 
A.  Coapilation 
NO  errors. 
Execution 
No  errors. 


B. 


NC113 

A. 


Coapf lat ion 

The  coapiler  produced  the  aessage 

SCAN  RESUMED  AT  NEXT  VALID 


IKflOaSI-C  ILLEGAL  CHARACTER. 
CHARACTER. 
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on  the  lolloHing  CCPOl  code 

C03C0C  UOKUNG- 

0031C0-  STORAGE 

003?0C  SECTIOK. 

B.  Eiecution 

Ko  errors. 

NC11<  through  NC130 

A . Coup i I at  ion 

Ko  er  rors  . 

6 . E xecut  ion 

No  errors. 

NC151  through  NC156 

A . Coaipi  I at  i on 

No  errors. 

B . Execution 

No  errors. 

NC157 

A.  Coapilation 

The  coapiler  flagged  a SYNCHRONIZED  clause  in  an  OT  level  Data 
Division  entry*  which  was  an  elenentary  data  itea*  as  an  eitension 
to  all  levels  of  Federal  Standard  COBOL. 

B.  Execution 
No  errors. 

NCISe  through  NC162 

A.  Coapilation 
ho  errors  . 

B.  Execution 
No  errors. 
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NC16? 

A.  Coapilation 

The  coirpiLer  flapped  a SYNCHRONIZED  clause  in  a 01  level  Data 
Division  entry^  which  was  an  eleaentary  data  itet. > as  an 
extension  to  all  levels  of  federal  Standard  COPOl . 

B . E X e cut  ion 

1.  In  NOVE-TEST-76  a HOVE  stateaenf  which  aoved  a group  data 
itea  to  an  alphanueeric  edited  data  itee  did  not  produce 
the  expected  results.  The  results  produced  by  this  test 
were  the  saae  as  NdOS  B.1  above. 

2.  In  NCVE-TE ST-92  a acVE  stateaent  which  aoved  a group  cata 
itea  to  an  edited  data  iter  did  not  produce  the  expected 
results.  The  results  produced  by  this  test  were  the  saae 
as  NC10S  e.2  above. 

NC16A  through  KC165 

A . Coap i I at i on 
No  errors. 

B.  Execution 
No  errors. 

NUCLEtS  PODULE  LEVEL  2 
NC201 

A.  Coapilation 

The  coapiler  incorrectly  flagged  the  stateaent  PERfORR  ...  VARYING 
...  FROR  -5.5  BY  ...  UNTIL  with  the  following  aessage: 

IKFg002l-W  USE  CF  NEGATIVE  INDEXES  IN  PERFORR  STATERENT  IS 
AN  EXTENSION  TO  ALL  LEVELS. 

There  were  no  indices  associated  with  the  stateaent. 

B.  Execution 
No  errors. 


NC202  through  NC20A 
A.  Coapilation 
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>•0  errors  - 
B.  iiiecution 


NC2P5 


No  errors. 


A.  Corpilation 


1-  The  toepUer  issued  three  E-level  and  one  C-level  aessages 
on  stateaents  which  used  line  continuation  for  nureric 
literals.  The  stateeent  constructs  which  caused  the 
•essaqes  to  be  produced  were: 


C359C0  CONTIN-TEST-1 
C36000  NOVE  A 
036100-  5 
036200-  6 
036300-  7 
036400- 


8 TO  CONT-B. 


037900  CONTIN-TEST-2. 


03800C 

038100- 

038200- 

C3E3C0- 

C38400- 

038500- 

038600- 

038700- 


NOVE 


7 

7 

7 


TO  CONT-B. 


2.  The  coapiler  did  not  accept  the  following  stateaent  construct 
in  CONT-TEST-4. 


IF  CONT  EQUA 


L TO  lERO 


S AN 


0 GREATER 


EQUAL  TO  CONT-C  OR  (<(<((0 


ZERO  AND  COKT-B 


(several  blank  source  lines) 
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- CON-D 

ECUAL  TO 

COND-D  0 

“ 

AND  N 

R -11 

♦ CONT-F  )))))) 

- 

OT 

NEGATIVE 

• 

PERFORM 

PASS 

IFRO 

EL 

- 

SE 

PERFOR" 

FAIL. 

3.  The  ccepiler  did  not  accept  the  following  stateaent  construct 
in  COMIN-TEST-5. 

DI  V 

ID 

E CONT-f  Ih 

TO  CONT-C  6IV 

IN 

6 CONT-D  ROUN 

OE 

0 

0 

NSI2EERR 

OR  PERFOR 

n PASS  G 

0 T 

0 CONTIN-i)RITE-5. 

B.  Eaecution 

Because  of  A.  above/  A tests  were  deleted. 

NC206  through  NC?12 

A.  Coapilation 
No  errors. 

B.  Execution 
No  errors. 

NC213 

A.  Coapilation 

The  coapiler  flagoed  Data  Division  entries  which  included  a 
VALUE  clause  with  nuaeric-edited  picture  charac t er-s t r irgs 
as  an  extension  to  Federal  Standard  COBOL.  The  messages 
produced  were 

lKFe002I-k  NUPERIC  LITERAL  IN  VALUE  CLAUSE  FOR  NUHERIC 
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EPITtD  ITE»*S  IS  »N  EXTENSION  TO  ALL  LEVELS. 

e.  Execution 

A nuceric  edited  data  ite»  whose  picture  cha ra ct e r-s t r ino 
was  l.»*  and  was  a receiving  operand  in  a SUPTRACT  stateeent 
did  not  give  the  expected  results.  The  initial  value  of 
the  data  iteii  was  zero  ano  the  value  resultino  fro*'  execution 
of  the  stateeent  was  V.99.  Because  the  ON  SIZE  ERROR  phrase 
was  specified#  the  contents  of  the  data-ite«i  was  expected  to 
Le  unaltered  and  contain  its  initial  value  of  zero. 

NC21A  through  NC218 

A . Cocp  i I at  ion 
No  errors. 

B.  Execution 
No  errors. 
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St6WEKTAT10R  rOOULE  LEVEL  1 
SG101  throu9^  S6106 

A.  COBpilation 
Ao  errors. 

B . E tecut ion 
No  errors. 

SE6NENTAT10N  MODULE  LEVEL  2 
SG2C1  through  SG20A 

A.  CoBpitation 
No  errors. 

B . E lecut ion 
No  errors. 
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SE8UEMIAL  ACCESS  MODULE  LEVEL  1 

SO101  through  SQ117 

A.  Compilation 
Ko  errors. 

6.  Eipcution 
ho  errors. 

SQ11E  through  SO  1 20 

A . Compilation 
Ko  errors. 

B.  Execution 

The  system  does  not  support  card  punch  or  card  reader  devices  for  read- 
ing ASCII  encoded  punched  cards.  For  these  proorams  the  files  intended  } 

for  use  with  the  card  reader  and  punch  were  assigned  to  magnetic  tape 
instead. 

SQ121  j 

A.  Compilation  ^ 

Ko  errors. 

B.  Execution 
Ko  errors. 

Sei51  through  SQ153 

A.  Compilation 
Mo  errors. 

B.  Execution 
Mo  errors. 

SEOUEMTIAL  ACCESS  MODULE  LEVEL  2 

SS201  through  S0218 

A.  Compilation 
Mo  errors. 
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SORT  HODULE  LEVEL  1 
ST101  through  ST117 
A.  CoapHation 
ho  errors, 
e.  Execution 
No  errors. 
SORT  aoOULE  LEVEL  7 
ST201  through  ST215 

A.  Coapilstion 
No  errors. 

B.  Et'ecution 
No  errors. 
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